home *** CD-ROM | disk | FTP | other *** search
/ HAKERIS 11 / HAKERIS 11.ISO / soft / development / Macromedia RoboHelp X5 / RoboHelpOffice.exe / Data1.cab / _8C8BC440ED3647B6BE8AC64333B729CD < prev    next >
Encoding:
Text File  |  2003-11-24  |  2.6 KB  |  63 lines
  1. <HTML>
  2.     <head>
  3.         <script language="VBScript">
  4.             Sub GoToNonFlash()
  5.                 window.location.replace(sAltPage)
  6.             End Sub
  7.             Sub CheckFlash()
  8.                 If FlashInstalled() Then
  9.                     window.clearInterval(timeoutID)
  10.                     ' Flash 6 is loaded, so go to the correct page
  11.                     window.location.replace(sContentPage)
  12.                 End If
  13.             End Sub
  14.             
  15.             Function FlashInstalled()
  16.                 Dim flashObj
  17.                 FlashInstalled = False
  18.                 On Error Resume Next
  19.                 Set flashObj = CreateObject("ShockwaveFlash.ShockwaveFlash.6")
  20.                 FlashInstalled = IsObject(flashObj)
  21.             End Function
  22.  
  23.             ' Set the pages we will jump to
  24.             sContentPage = "wf_startfs.htm"
  25.             sAltPage = "wf_njs.htm"
  26.             
  27.             ' Set up a timer to check for loading Flash 6
  28.             timeoutID = window.setInterval("CheckFlash", 500, "VBSCRIPT")
  29.         </script>        
  30.     </head>
  31.     <body>
  32.         <BR>
  33.         <BLOCKQUOTE>
  34.             <TABLE WIDTH="60%">
  35.                 <tr>
  36.                     <TD><OBJECT classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' WIDTH='50' HEIGHT='50' id='waitSWF' ALIGN='top' VIEWASTEXT>
  37.                         <PARAM NAME='movie' VALUE='wf_waitv6.swf'>
  38.                         <PARAM NAME=quality VALUE=high>
  39.                         <EMBED src='wf_waitv6.swf' quality=high WIDTH='50' HEIGHT='50' NAME='waitSWF' swLiveConnect='true' ALIGN=''
  40.                                 TYPE='application/x-shockwave-flash' PLUGINSPAGE='http://www.macromedia.com/go/getflashplayer'>
  41.                         </EMBED>
  42.                     </OBJECT>
  43.                     </TD>
  44.                     <TD><h3><font face="Arial, Helvetica, sans-serif">You don't have Macromedia Flash Player 6.0 or later!</font></h3>
  45.                     </TD>
  46.                 <TR>
  47.                     <TD COLSPAN="2">
  48.                         <P><font face="Arial, Helvetica, sans-serif">This help system makes use of <A HREF="http://www.macromedia.com/software/flash/" TARGET="_new">
  49.                                     Macromedia<SUP><FONT SIZE="-1">®</FONT></SUP> Flash<SUP><FONT SIZE="-2">TM</FONT></SUP></A>
  50.                                 software, and we are trying to automatically update your Flash Player to the latest version.</font></P>
  51.                 <TR>
  52.                     <TD COLSPAN="2">
  53.                         <FORM NAME="preferences" ID="Form2" ACTION="post">
  54.                             <P><font face="Arial, Helvetica, sans-serif">If you would prefer not to update right now, you can view a non-Flash version of the help system by clicking the button below.</font></p>
  55.                             <P><INPUT id="SubmitCmd" type="button" value="Non-Flash" name="SubmitCmd" language="VBscript" onclick="GoToNonFlash()"></P>
  56.                         </FORM>
  57.                 </TR>
  58.             </TABLE>
  59.             <P><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="-2">Macromedia and Flash 
  60.                     are trademarks of Macromedia, Inc.</FONT></P>
  61.         </BLOCKQUOTE>
  62.     </body>
  63. <HTML>